home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / gnutella_detect.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  110 lines
  1. #
  2. # Copyright 2002 by Michel Arboi <arboi@alussinan.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6. #
  7.  
  8. desc["english"] = "
  9. We detected a Gnutella 'servent'.
  10. This file sharing software works in peer to peer mode.
  11.  
  12. Risk factor : Low";
  13.  
  14.  
  15.  
  16. if(description)
  17. {
  18.  script_id(10946);
  19.  script_version ("$Revision: 1.13 $");
  20.  
  21.  name["english"] = "Gnutella servent detection";
  22.  script_name(english:name["english"]);
  23.  
  24.  
  25.  script_description(english:desc["english"]);
  26.  
  27.  summary["english"] = "Detect Gnutella servent";
  28.  script_summary(english:summary["english"]);
  29.  
  30.  script_category(ACT_GATHER_INFO);
  31.  
  32.  script_copyright(english:"This script is Copyright (C) 2002 Michel Arboi");
  33.  family["english"] = "Peer-To-Peer File Sharing";
  34.  script_family(english:family["english"]);
  35.  
  36.  script_dependencie("find_service.nes");
  37.  # Gnutella servent _might_ be detected as a web server
  38.  script_require_ports("Services/www", 6346);
  39.  exit(0);
  40. }
  41.  
  42. #
  43. # The script code starts here
  44. #
  45. include("misc_func.inc");
  46. include("http_func.inc");
  47.  
  48. function check(port)
  49. {
  50.  if (! get_port_state(port))
  51.   return (0);
  52.  
  53.  soc = open_sock_tcp(port);
  54.  if(soc)
  55.  {
  56.   send(socket:soc, data:string("GNUTELLA CONNECT/0.4\r\n\r\n"));
  57.   answer = recv(socket:soc, length:500);
  58.   close(soc);
  59.   # display(string(">", answer, "<\n"));
  60.  
  61.   if ("GNUTELLA OK" >< answer)
  62.   {
  63.    security_note(port:port, protocol:"tcp");
  64.    register_service(port:port, proto:"gnutella");
  65.    return(1);
  66.   }
  67.  }
  68.  else exit(0);
  69.  
  70.  banner = get_kb_item(string("www/banner/", port));
  71.  if(!banner)
  72.  {
  73.   if(get_port_state(port))
  74.   {
  75.    soc = open_sock_tcp(port);
  76.    if(soc)
  77.    {
  78.     send(socket:soc, data:string("GET / HTTP/1.0\r\n\r\n"));
  79.     banner = http_recv(socket:soc);
  80.     close(soc);
  81.    }
  82.    else exit(0);
  83.   }
  84.  }
  85.  
  86.  
  87.  if (! banner)
  88.   return(0);
  89.  
  90.  # We should probably add more regex here. But there are 100+ Gnutella
  91.  # softwares
  92.  if (egrep(pattern:"Gnutella|BearShare", string:banner, icase:1))
  93.  {
  94. report = "Although this service did not answer to Gnutella protocol 0.4,
  95. it might be a Gnutella server.
  96.  
  97. Risk factor : None";
  98.  
  99.   security_note(port:port, protocol:"tcp",data:report);
  100.   return(1);
  101.  }
  102. }
  103.  
  104.  
  105. ports = add_port_in_list(list:get_kb_list("Services/www"), port:6346);
  106. foreach port (ports)
  107. {
  108. check(port:defp);
  109. }
  110.